7. Determine the inverse of the function. Do you notice anything interesting about the slope values? 

> solve(f(y) = x, y);
 

Typesetting:-mprintslash([PIECEWISE([[], `<`(x, 1.)], [[`+`(`-`(.3333333333), `*`(.3333333333, `*`(x)))], `<=`(x, 10.)], [[`+`(`-`(57.), `*`(6., `*`(x)))], `<=`(x, 11.)], [[`+`(`-`(4.444444444), `*`(1... (4.7.1)
 

> convert(piecewise(`<`(x, 1.), [], `<=`(x, 10.), [`+`(`-`(.3333333333), `*`(.3333333333, `*`(x)))], `<=`(x, 11.), [`+`(`-`(57.), `*`(6., `*`(x)))], `<=`(x, 20.), [`+`(`-`(4.444444444), `*`(1.222222222,...
 

Typesetting:-mprintslash([PIECEWISE([[], `<`(x, 1)], [[`+`(`-`(`/`(1, 3)), `*`(`/`(1, 3), `*`(x)))], `<=`(x, 10)], [[`+`(`-`(57), `*`(6, `*`(x)))], `<=`(x, 11)], [[`+`(`-`(`/`(40, 9)), `*`(`/`(11, 9),... (4.7.2)
 

>
 

>
 

> finv := proc (x) options operator, arrow, function_assign; piecewise(`and`(`<`(1, x), `<=`(x, 10)), `+`(`-`(`/`(1, 3)), `*`(`/`(1, 3), `*`(x))), `and`(`<`(10, x), `<=`(x, 11)), `+`(`-`(57), `*`(6, `*`...
 

Typesetting:-mprintslash([finv := proc (x) options operator, arrow, function_assign; piecewise(`and`(`<`(1, x), `<=`(x, 10)), `+`(`-`(`/`(1, 3)), `*`(`/`(1, 3), `*`(x))), `and`(`<`(10, x), `<=`(x, 11)... (4.7.3)
 

>
 

>

 

 

>